home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / computer / casio_st / prog_fx / oisac2 / menu_prg.txt < prev    next >
Encoding:
Text File  |  1994-03-01  |  756 b   |  15 lines
  1. 1 ' *** OISAC 2 *** MENU-PRG ***
  2. 10 RESTORE1000:D=5:P=0:R=PEEK1716*256:DIMP$(D),Z$(D),L$(D):FORI=0TOD:READP$(I),Z$(I),L$(I):NEXT:I=0:DEFSEG=0:POKE1023,PEEK1771
  3. 20 CLS:PRINT"*** MENU-PRG *** OISAC 2 ***3;:T=(28-LEN(P$(I)))2:LOCATET,1:PRINT">"P$(I)">";
  4. 25 S=ASC(INPUT$(1,@))
  5. 30 IFS=30ANDI<>0THENI=I-1:GOTO20ELSEIFS=31ANDI<>D THENI=I+1:GOTO20
  6. 35 IFS=29THENI=0:GOTO20ELSEIFS=28THENI=D:GOTO20
  7. 40 IFS<>13THENBEEP:GOTO25ELSEZ=VAL(Z$(I)):CALC$=L$(I):IFZ<>P THENPOKE1771,(R-15*Z-15)MOD256
  8. 50 CLEAR:GOSUBVAL(CALC$):DEFSEG=0:POKE1771,PEEK1023:GOTO10
  9. 999 ' ******* EXEMPLES DE DATAS *********
  10. 1000 DATA Menu-prg,0,10          
  11. 1010 DATA Antireset,1,10000
  12. 1020 DATA Editeur-Mem,1,10
  13. 1030 DATA Scrolling1,1,20000
  14. 1040 DATA Mode,0,20000
  15. 1050 DATA Lib-Ram,2,10